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i: COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARE. MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND Sg 
‘* ONLY IN ACCORDANCE A THE TERMS OF SUCH LICENSE AND WITH THE 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOF Tw ARE OR ANY OTHER 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* vaenisecentee NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:; CORPORATION NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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This file, EDT.REQ, contains definitions for EDT. 
Edit history: 


1-001 - Beginning of edit history. 

1-002 = Add ASSERT macro, remove bugcheck codes. JBS 01-Jun-1981 
1-003 - Offset the PDP-11 error codes. so they can be digt inguished 
from system-specific error codes. JBS 16-Jul-1981 

1-004 = Remove the error nastqnrs gpitt ing them in 
ERRMSG.REQ. JBS 20-J 
1-005 - Add two fields to face: one points to the previous buffer, 
the other marks the buffer as a macro. Delete 
the creation of the MAC_BLOCK structure TMV 6-Aug-81 
1-006 - Add the verb number for fhe new bell verb. STs 10-Aug-1981 
1-007 = Add INP_JOURNAL and INP_COMMAND to re oer oce ae FILE. This 
lets us journal the speteenses_te io ~~ TiTOTE/ QUERY in 
| 


the journal file. 6-Aug-19 


1-008 - Add the verb number oe the new verb. mi pionug: 12et 

1-009 - Update. the routine and variable names. JBS & TMV 16-Aep-1981 

1-010 - Add new verbs to set up default verb. STS 31 sept 981 

1-011 = Add new verbs for weceee peseat end d toggle se seaect. STS 23-Sep-1981 

ae 4 = Add new search and select verb. 

1-015 = Add Literals for word and para Rad. STS Pos Oet-1981 

1-014 = Add PREV_RANGE. JBS 02-Nov-1981 

1-015 - Add definitions for file i/o codes and streams. STS pe~pec=1981 

1-016 - Change edt$$k to edt$k for file i/o definitions. STS 09-Dec 1 

1-017 - ote macro to set up address and, engi in n string. a STS iogan-1982 

1-018 - Fix above macro to work with 1 3-Jan-19 

1-019 - Add literals for open output seq “ane open output ng noseq. STS 13-Jan-1982 
1-020 - Chang stcing dese macro for bliss16 TS 1 1982 | 
1-021 = Change 32-bit arithmetic to 48-bit arithmetic. SMB 15-Jan-1982 
1-022 - Modify block allocation so that odd address traps don't occur on 11's. SMB 25-Jan-1982 
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Remove CLaBiert Line numbers. Sr O8-iar-196s 

Make = le Literals global. 8-Mar-19 

Remove callable Literals. STS ob. 

ose s yanese we control c ; ndlin "95 ae: 24-May-1982 


hdd ange YRS mu Put BORLEN. ° 498 05Jy =1982 
d verb for xlate. STS ug-1 
Remove the keypad definitions to KEYPADDEF REQ. 13-Aug-1982 
A » “bit keyboards. JBS 17-A hug-198 
rf Boca upetsegs JBS 20-Aug-198 
6-Auqg-1 
Add K_R rb ects ‘Pen "Sa 3i-k ug-1982 
Add néw screen data structures. SMB 11-Sep-1982 
Put back a Line that was deleted by mistake. SMB 15-Sep-1982 
Revise the EDIT pect ion ot. Hy new screen duta structures. JBS 17-Sep-1982 
Add CC_RDCNT. 773 17-Se < 98 
Remove CC_RDCNT. STS 2b: ep-1 
Work on conditionalizing oBal ive gt Be mr c- {08s STS 30-Sep-1982 
Add memory allocation maximum. 
Add macros for comparing Line m5, “Si 20-O0ct- 1362 
Work on 1l-version of. compare macro. STS 21-0ct-198 
Bind high word of Unenunbers in compare macro. STS ‘sateen 1982 
Fix bug in compare. STS 22-Oct-19 Se 
perk +" he version of compare mac STS 26-Oct-1982 
com are to call EDISSCMP. LNO. STS 27-Oct-1982 

hdd oe eoit INPOS, remove a bunch of unused and obsolete definitions. JBS 27-Oct-1982 
Reduce the size of the screen edit area on the? PDP-11. This saves 

space at the expense of time. JBS 15-Nov-19 
Remove the edit buffer entirely. JBS 27-Dec-1982 
Reduce the amount of code pereretes by the ASSERT macro, to try 

to save space on the PDP-11 BS Wasenn Pes 
Correct the definition of ssi. JBS 19-Jan-1983 
Change the format buffer size eer VMS. SMB 24-Feb-1983 
Remove WC_K_NUM_BUKT. JBS 29-Mar-1983 


EC 
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' 

{ DEFINITION DEFINITIONS 

i 

‘ The following definitions are used to facilitate further definitions. 


‘4+ 

Field definition macros. This set of macros allows for definitions 
! of the fields of data structures, letting the compiler compute the 
& the offsets. 


COMPILETIME FIELD git = 0; 
COMPILETIME NUMBER_ONE = 1; 


MACRO START _FIELDS(FIELD_NAME) = 
cAete FIECD_NAME = 


ZASSIGN(FIELD_OFFSET,O) 2%; 

MACRO A -FJELDCFIELD NAME1,LENGTH 
FIELDNAME 1 FIELD_OFFSET/8 FIELD OFFSET MOD 8,LENGTH,0] 
ZASSIGN(FIELD OFrsees TFIELD_OFFSET*LENGTH) 2; 


MACRO INC_FIELD (LENGTH) = 
ZASSIGNTFIELD_OFFSET,FIELD_OFFSET+LENGTH) 2%; 


MACRO END_FIELDS = TES;%; 
MACRO STRUC_SIZE(SIZE) = LITERAL SIZE 


= (FIELD_OFFSET+7)/8; %; 
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1+ 
i IMPLEMENTATION PARAMETERS. 


i The following definitions are parameters used in the work-file system 
: which may require re-definition for different implementations. 


LITERAL 
WF BLN LEN = 16, ! Bit Length of a work-file block number. 
LIRE_NOM_LEN = 16; ! Bit length of a line number. (actually 3*16=48) 


1 
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The EDT work file can contain multiple, independent data sets 

' referred to as Text Buffers. A text buffer corresponds to the construct 
! of the same name found in EDT user documentation, it is a seqential file 
! of variable Length records. The records are grouped together into blocks 
! of 512 characters. The records in a block are sequentially ordered, 

! though the blocks themselves are not. Each block contains a two-byte 

! Link to the previous and \ eye blocks. In addition to the lines in 

! the work-file, an input file may be associated with a text buffer. In this 
' case the input file is logically placed at the end of the text buffer. 

' The Text buffer is accessed via a control block called the Text Buffer 

! Control Block, or TBCB. 


START_FIELDS(TBCB. FIELDS) 
A_FTELD(TBCB_LINE ADDR, %BPADDR), ! Pointer to current Line. 
A_F IELD(TBCB_CUR_BUKT,WF_BLN_LEN) ! Current bucket number. 
A-FIELD(TBCB-CUR-LIN, LINE NUAM_LENS, ! Current Line number. 
A_F IELD(TBCB_CUR-LINM,LINE_NUM_LENS, 
A_F IELD(TBCB-CUR-LINH,LINE_NUM-LEN), . 
A_FIELD(TBCB_CHAR_POS,WF BCN_LEN), ! The character position within the Line 
A_FIELD(TBCB_FIRST BUKT,GF BCN LEN), ! First bucket number. 
A_FIELD(TBCB_LAST BUKT,wWF_6BLN CEN) ' Last bucket number. 
A-F IELD(TBCB_INPUT_LINE,LINE_RUM_LEN),! Number of Last input Line. 
A_F IELD( TBCB_INPUT-LINM,LINE_NUM_LEN), 
A_F IELD(TBCB_INPUT-LINH,LINE-NUM_LEN) , 
ALF IELD(TBCB"LINE_COUNT,LINE NUM_LEN),! Count of Lines in buffer. 
A_FIELD(TBCB_LC_MULINE_NUM_LEN), 
A_F IELO(TBCB-LC-H,LINE-NUM_LEN), 
A_F IELD(TBCB_CHAR_COUNT, ZBPVAL), ! Count of chars in buffer. 
A_F IELD( TBCB_PREV-BUF , XBPADDR) , i Pointer to previous text buffer. 
A_F IELD(TBCB_NEXT BUF ,ZBPADDR), ! Pointer to next text buffer. 
A_F IELD(TBCB_INPUT_RAB,8), i Pointer to input RAB. 
A_FIELD(TBCB_IS_MAT,8) ! This buffer is a macro 
A-FIELD(TBCB-NARE_LEN,8), i Length of buffer name. 
A_F IELD( TBCB_NAME ,0) ! Name of buffer 

END_FIELDS 

STRUC_SIZE(TBCB_SIZE) ' Define size of TBCB. 


MACRO TBCB_BLOCK = BLOCKCTBCB_SIZE BYTE) FIELD(TBCB_FIELOS)2 ; 


'¢ 

! The pos block is the portion of the TBCB which contains information needed 
' to locate the current Line. This block must be identical to the first 
part of the TBCB or everything will fail. 


T_FIELDS(POS_ FIELDS) 
FIELD(POS_LIRNE_ADDR,%BPADDR), ! Pointer to current Line. 
FIELD(POS-CUR_BUKT,WF_BLN_LEN), ! Current bucket number. 
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' Current Line number. 


! Define size of position information 
MACRO POS_BLOCK = BLOCKCPOS_SIZE,BYTE] FIELD(POS_FIELDS)%; 
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rs 
: TEXT LINE DEFINITIONS 
A Line number contains an integer part and a fractional part. 


START_FIELDS(LIN FueLgS) 
A_FTELD(LIN_LEAGTH,8), ! Length of Line 
A_FIELD(LIN_NUM,LINE NUM _LEN) ! The Line number 
A_FIELO(LIN-NUMM,LINE_NUM_LENS, 
ALF ieotrincteet beet s 
A_FIELD(LIN_TEXT,0) ! The actual text 
END_FIELDS 


| 
| 
| 
| 
| 
STRUC_SIZE(LIN_F IXED_SIZE) 
MACRO LIN_BLOCK = BLOCKCLIN_FIXED_SIZE,BYTE] FIELD(LIN_FIELDS)%; 
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WORK-FILE BUCKET DEFINITIONS 


The work file is orgainized into blocks of WF_BLOCK_SIZE characters. 
Each Text Buffer in the work file consists of a Linked List of blocks. 


a 


LITERAL WF_BUKT_SIZE = 512; ! Size of a work-file block 


START _FIELDS(WFB_ FIELDS) 
TEL 4h wre PREV _BUKT ,WF_BLN_LEN), ! Number of previous bucket 
~F LELD(WFB_NEXT BUKT,WF_BLN_LEN), Number of next bucket 
i 


ALF 

Fl 

FIELD(WEB-END, ZBPVAL) ,~ Offset to last record in block 
“fietbs LDR “RECORDS” 0) ! Address of first record in block 
c_s 


A: 
A 
A 
END_ 


STRUC_SIZE(WFB_FIXED_SIZE) 
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rr 
: LINE NUMBER BLOCK DEFINITIONS 

i The Ling number is defined as a block, so it can be handled as 
: three 16-bit words. 


FIELD LN_FIELDS = 
LN_LO = (0,0,16,0), 
LN_MD = a 18 ° 
LN_HI = 0,16, 
TES; 
MACRO LN_BLOCK = BLOCK(6,BYTE] FIELD(LN_FIELDS) %; 


LITERAL LN_SIZE = 6; 


STRUCTURE 
LNOVECTORCI;NJ] = CN*LN_SIZE] (LNOVECTOR+I*LN_SIZE); 


ee 
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FIELD NODE_FIELDS 
NODE_TYPE 
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SET _VAL1 
REPADDR 
FSPCLEN 
AS LEN 


BUF _LEN 
SUB_LENGTH 
NEXT_COM 


CZUPVAL*4 0, %BPVAL 0], 


a 

Semantic node definitions. 
The following defines the structures created b 
command parser semantic routines. 
a tree-Like representation of the command. 


The fields which are 
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ZUPVA 
pte 


ZUPVA 


XBPVAL 
XBP 
z8P 
%BP 
%BP 
%BP 
xBP 
%BP 

Pp 


ZBPVA 
XBPVA 
ZUPVAL* 


ZUPVAL* 
ZUPVAL* 


ZUPVAL* 


ZUPVAL®* 
ZUPVAL* 
ZUPVAL®* 
ZUPVAL* 
ZUPVAL* 
ZUPVAL* 


-SBPVAL, 
»SBPVAL, 


» SBPVAL, 
-SBPVAL, 
»SBPVAL, 


These struc 


1 
16-SEP-1984 16:49:50.1 Page 10 


c= EDT 


res form 


rouped together are re-definitions of the 
same slot for use in different types of nodes. 


Identifies the type of node 


Identifies the command 
Identifier type of range 
Identifies type of operand 
Did the seq switch have value. 


First range specifier 

Value for range specifier 
Bits for each possible switch 
Address of search string 
Which type of set command 
Left operand for binary ops 
operand length for op nodes. 
Operand value for numerics... 
Expression pointer for LET 
Left operand for operators. 
Substring base string. 


Second range specifier 
Pointer to range for ranges 
Pointer to a search string 
Search string length 

File specification address 
First value for switches 
Addr of string for AS 

os operand for binary ops. 
Address of buffer name 
Operand address for op nodes. 
Variable pointer for LET 

AE ot: operand for operators. 
Substring start pos. 

Count for tabs adjust. 


Value for set command 
Replace string address 
File spec Length 

Length of string for AS 
Length of buffer name 
Substring length. 


Pointer to next command 


aF 
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NEXT_RANGE 
REPLEN 
SET_VAL 
KEY-VAL 


PREV_RANGE 
SwITS 
SW_VAL2 
SW_OVR1 


SW_OVR2 
TES; 


LITERAL 


NUM _NODES 
NODE _SIZE 


MACRO NODE_BLOCK = 


EUPVAL 4 ;SBPVAL, 
ZUPVAL®4,0,%BPVAL, 


RUPVAL*5,0,%BPVAL, 
RUPVAL*5,0,%BPVAL, 
RUPVAL*5,0,%8PVAL, 

CLUPVAL*6,0,BPVAL .03, 
CZUPVAL*7,0,%8PVAL ,0] 


quevAL Se - »SBPVAL 0), 
ZUPVAL*4,0,ZBPVAL,0J, 


SeGupvAL; 


LITERAL ! Node type equates 
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ee 


Pointer to next a 
Replace string Length 


Number of key for def key 


Reverse of NEXT_RANGE 
Switch block pointer 
Second option switch value 


Part of second option switch 
Part of second option switch 


Number of semantic nodes 
Size of semantic node 


‘nome A + 

Range 

SUB ei Ture nhs jo 
Option switch value 
Expression operand 


BLOCKCNODE_SIZE,BYTE] FIELD(NODE_FIELDS) 2%; 


—— | 
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'¢ 
; COMMAND NUMBER DEFINITIONS 


i The following values are used in a command type node to specify which 
: command it is. 
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'¢ 
: RANGE TYPE DEFINITIONS 


The following constants are used in range nodes to specify the type of 
! range. 
le 


LITERAL 
RAN_NULL = 0, 
RAN-NUMBER = 1, 
RAN_DOT 2 ¢° 
TR = 5, 
RAN_BEGIN = 4, 
—END = 5, 
RAN_ORIG = 6, 
RAN_PATTERN = 7, 
RAN-LAST = 8, 
RAN-BEFORE = 9 
RAN-REST = 10, 
WHOLE = 11, 
RAN_SELECT = \¢- 
RAN_BUFFER = 1 ° 
RAN-PLUS = _‘14, 
RAN-MINUS = 15, 
RAN_FO = 16, 
RAN_THRU = 17, 
RAN-MINSTR = 18, 
RAN_ALL = 19, 
RAN_ AND = 20. 
NUM_ = 20, ! Total number of ranges 
NUM_SLR = 7; ! number of single Line ranges 


1 
Operand types for operand nodes. 


LITERAL 
OP_STRING = 0, ! Operand is a quoted string 
OP_NUM = 1, ! Operand is a number 
OP_VAR = ¢° _! Operand is a variable 
OP_DOT = 3, ! Operand is the dot pseudo variable 
ADD = 4, ! Operand is an addition operator 
OP_SUB = 5, ! Operand is a subtractions operator 
OP_MULT = 6, ! Operand is a multiplication operator 
OP_DIV a P ! Operand is a division operator 
OP_AND = 8, ' logical and 
OP_OR =9 ! Logical or 
OP_LSS = 16, i compare for less 
OP_LEQ = 11, ! compare for less or equal 
OP_EQL = \¢- ! Compare for equality 
OP_GEQ = 15,  ! compare for greater or equal 
OP_GT = 14, ! compare for greater 
OP_NEQ = 15, ! compare for not equal 
AMP = 1g. ! concatenation 
OP_SUBSTR = 17, ! substringing 
_NEG = 18, ! negation 


14 
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! Logical not 


Length of 


i current column 


' current position 
! Last operand type 
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> 
LINE NUMBER HANDLING MACROS 


These macros are used for arithmetic involving Line numbers, so it can 

be transportable across systems with various word lengths. At least 48 
bits of precision are required for Line numbers. Line nygeers are stored 
as an_integer with a scale of <5, i.e. the true value * 10**5, so we can 
have 5 decimal positions and 10 integer positions in the Line number. 


RIF ZBLISS(BLISSS2) XTHEN 
ri ADDLINE(S1,S2,DEST,MAX) = 
i add 2 48-bit numbers using 2 Longwords (so we can 
use the BLISS-32 Built-in macros). 
"BEGIN 
ZIF ZCTCECS1) ZTHEN 
Rn ZIF ZLENGTH EQL 2 XTHEN 
add a compile time expression to s2 and store it in s2 
; BEGIN 
BIND 
FIRST_LWORD = $2 :LONG, 
NEXT_QORD = (S244) : WORD; 
FIRST LWORD = .FIRST_LWORD +S1; 
HF gf ERST_LUORD LSSU $1 
NEXT_WORD = .NEXT_WORD + 1; 
ZELSE 


! add a compile time expression to s2 and store it in dest 


BEGIN 
BIND FIRST_WORD = (DEST) : LONG, 
NEXT DORD = (DEST+4) : WORD, 
SOURTE_2L0 = (S2) : LONG 
SOURCE~2HI = (S244) : WORD; 
IRST_WORD = .SOURCE_2L0 + S1; 


F . SOURCE _ 
IF (.FIRST_WORD LSSU™S1) 
a NEXT_WORD = .SOURCE_2HI + 1 
NEXT_WORD = .SOURCE_2HI; 
END 
ZFI 
RELSE 
we don't have a compile time expression, but we are adding two 48-bit numbers 


ZIF ZLENGTH EQL 2 XTHEN ' store the result in $2 
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AVE: WORD; 

UPPER woRD : » (5206) : WORD; 
= ai se.S2) 

(2. hha 

R_WORD =. SAVE; 


END 
ZELSE 
ee EQL 3 XTHEN ! store the result in DEST 


LOCAL 
SA a ae 
BUILTIN A 


BIND UPPER PyORD = (DEST+6) : WORD; 
SAVE = .UPPER_WORD 
ADDA(2 . $1,S2, “pests: 

PPER_WORD = .SAVE; 


EN 
ZELSE !' store the result in DEST and return 
BEGIN ! any overflow in MAX 


CAL 
SAVES2 : WORD, 
SAVED : WORD; 


ND 
S1_UP = (S146) t WORD. 
S2°UP = (S2+6) : WORD, 
DEST_uP = (DEST#6) : WORD; 


BUILTIN, ADDM; 
et By a? + .S1_UP; 


DES 
ADDM (2. $i,S2, Best): 


'¢ 
- Get the overflow bit 


If .DEST_UP EQL .SAVES2 
THEN 


MAX = 
as 
DEST_UP = .SAVED; 
END 
“FI 
“FI 
“FI 
END%, 
SUBLINE(S1,$2,DEST) = 


! Subtract 2 48-bit numbers using 2 longwords 
BEGIN 


1 
EDT.REQ;1 16-SEP-1984 16:49:50.19 Page 18 


ZIF ZCTCE(S1) ZTHEN 
RIF ZLENGTH EQL 2 ZTHEN 


1+ 
we have a compile time expression to add to S2 and store in $2 


BEGIN 
LOCAL SAVE : LONG; 


FIRST WORD = S2 :LONG, 
NEXT GORD = (S244) : WORD; 


S 
FAR ST WORD = TFIRST WORD = $1; 
eFIRST _WORD GTRU . SAVE 


THEN 
NEXT_WORD = .NEXT_WORD = 1; 
: ZELSE 
add the compile time expression to S2 and store it in DEST 
é BEGIN 
BIND FIRST_WORD = (DEST) : LONG, 
NEXT_QORD = (DEST+4) : WORD, 
SOURCE sto = iss. : LON 
SOURCE~2HI = (S244) : WORD; 


FIRST WORD = .SOURCE_2L0 - 
IF _.FIRST _WORD GTRU TSOURCE dio 


eu getexT=WORD = .SOURCE_2HI - 1 
NEXT_WORD = .SOURCE_2HI; 


xF I 
ZELSE 
ZIF ZLENGTH EQL 2 ZTHEN 


'¢ 
add two 48 bit numbers and store result in $2 


BEGIN 
LOCAL SAVE: WORD; 

BUILTIN SUBM; 

BIND UPPER WORD = ($2+6) : WORD; 
SAVE = , UPPER WORD; 
SUBM(2,$1,S2,52); 

UPPER_WORD = .SAVE; 


E 
- ZELSE 
add two 48 bit numbers and store result in DEST 
BEGIN 
LOCAL 
gave ae 
BUILTIN SUBM 


BIND UPPER “WORD = (DEST#6) : WORD; 


a 


1 
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SAVE = ;YPPER.wO 
SUBN (2 S “pests; 
PPER_WORD = .SAVE 
“FI 


ENDZ, 


aFI 


: MULTLINE(S1,S$2,DEST) = 
; Multiply 2 48-bit numbers, but $1 MUST be <= 100,000 
: BEGIN 
ND 
M1 = $1: BITVECTOR (32); 
LOCAL m2 : : VECTOREZI, 
* BUILTIN ADDM, ASHQ; 


i Set up the multiplicand and result in 64 bits, zeroeing 
‘ out the upper 16-bits. 


M2C0) = Parichat M2C1J = .(S2+4)<0,16>; 
PCO) = 


'¢ 
i Since 65535 < multiplier <+ 100,000... we only need to 
a examine the low order 17-bits. 


DECR I FROM 16 TO 0 
dO 
BEGIN 
ae eae th ! Shift result left by 1 (multiply by 2) 
IF (.M1C.1)) "THEN.  ADDM(2, P, M2, P); i Add multiplicand to result 
thos ! if multiplier bit set 
sesteh ws = .PCLO]; (DEST+4)<0,16> = .PC1); 
ENDZ, 
'¢ 
: compare two 48 bit Line numbers to see if they are equal 
: LINNOEQL (LIN, LIN2) = 


NO. = LIN]  VECTORE3,WORD), 
NO 2 = LIN2 ECTOR(L5,WORDJ, 
L00_1 = Bate : LONG, 
LOW e, = NO “it LONG, 
HIGH_ -} = NO_2 


- “; WORD, 
: WORD; 
LF (CLOW.1 EQL .LOW_2) AND (.HIGH_1 EQL .HIGH_2)) 


F 4 
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ELSE 
(0) 

ENDS, 

CMPLNO(LINI,LIN2) = 

ase 
NO_1 = at ECTORLS WORD], 
NO_2 = LIN2 TOR — , 
LO@_1 = noc2t 
LOW 2 = NO 


2 

HIGA_ +. fe : WORD, 
HIGH_2 = NO >} : WORD; 
IF (.HIGH_1 LSSU .HIGH_2) 
THEN 


(-1) 
ELSE 


BEGIN 

IF (.HIGH.1 EQL .HIGH.2) 
IF (.LOW_1 LSSU .LOW_2) 
THEN 


ELSE 
IF (.LOW_1 EQL .LOW_2) THEN (0) ELSE (1) 


ELSE 
(1) 
END 
ENDZ, 
MOVELINE(S,D) = (CHSMOVE(6,S,D))%, ! Move 6 bytes of storage 
BUILDLINE(S,D) = (D = S; (D+4) = 0)%; ! Build a number 


' 
ZELSE XIF XBLISS(BLISS16) XTHEN 


CRO 
ADDLINE(S1,S2,DEST,MAX) = 
BEG! 


ZIF RCTCECS1) ZTHEN 
se ZIF ZLENGTH EQL 2 2THEN 


we are addng a constant to source_2 and storing in source_2 


BEGIN 
BIND 
FIRST WORD = $2:WORD, 
NEXT_QORD = (S2+2) : WORD, 
SHIGHEWORD = (S244). : WORD: 


FIRST WORD = .FIRST WORD + S1: 
if FIRST. word EQL 0 


BEGIN 
NEXT_WORD = .NEXT_WORD + 1; 


1 
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JF :NEXT_WORD EQL 0 THEN HIGHWORD = .HIGH WORD + 1; 


END 
‘i. ZELSE 
destination is DEST and we have a compile time constant 
BEGIN 
BIND 
SOURCE_1 = S$2_: WORD, 
SOURCE .¢ = 38043 : WORD, 
SOURCE 3 = ($244) : WORD, 
FIRST _QORD = DEST : WORD 
EXT_QORD = (DEST+2) : WORD, 
HIGH WORD = (DEST+4) : WORD; 
FIRST WORD = .SOURCE_1 + $1; 
NEXT_QORD = - SOURCE 2; 
HIGH-WORD = .SOURCE-3; 
IF .FIRST_WORD EQL 0 
THEN 


BEGIN 
NEXT WORD = .NEXT_WORD + 1; 
IF -NEXT_WORD EQL~O 


yp. PIGH-WORD = .HIGH WORD + 1 ; 


END 
aF I 


'¢ 
we don't have a constant 


NGTH EQL 2 THEN 
XTERNAL ROUTINE A48_ADD; A48_ADD(S1,S2,S2) END 


LENGTH EQL 3 XTHEN 
EXTERNAL ROUTINE A48_ADD; A48_ADD(S1,S2,DEST) END 


EGIN EXTERNAL ROUTINE A48_ADD; MAX = A48_ADD(S1,S2,DEST) END 


@mz re at 


MFI 
END% 
SUBLINE(S1,$2,DEST) = 
LIF XCTCE(S1) XTHEN 
ZIF ZLENGTH EQL 2 XTHEN 
LOCAL SAVE : WORD; 


FIRST WORD = $2 : WORD 
NEXT -BORD - $303)" 2) : WORD, 
RD = (S2+4) : WORD: 


HIGH WO 
SAVE = .FIRST_WORD; 
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xFI 


2F I 


END 
ZELSE 
i we don't have a compile time expression 
ZIF ZLENGTH EQL 2 &TH 
ZELS 


MOVEL INE (S11,D6 
BUILDLINE(S12,D7) = (D7 = Slz: 


H 1 
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FIRST 
.F 


WORD = .FIRST_WORD = $1; 
IF .FIRS 
THEN 


T WORD GTRU. SAVE 


EGIN 
ie T WORD = .NEXT_WORD = 1; 
»REXT WORD EQL™=1 THEN HIGH -WORD = .HIGH_WORD = 1; 


END 


ZELSE 
subtract a compile time constant to S2 and put result in DEST 


BEGIN 
BI a 
FIRST_WORD = DE 

NEXT_QORD = (DE 

HIGH A@ORD = (DE 
S -{ ='32 3 wo 
S = ($242) : WORD, 
Ss “HI = (§2+4) : WORD; 
RST_WORD = 3$2 LO = $1; 
XT_QORD = 3 A; 
GH-WORD = 


Hi; 
ei RST _woRD GTRU .S2_LO 


BEGIN 
NEXT_WORD = .NEXT_WORD - 1; 
IF gRext. WORD EQL™=1 


p:HIGHAWORD = .HIGH WORD - 1; 


: WORD 
2): 
4): 


Pt poppe 


Fl 
NE 
HI 
IF 
THEN 
END 


HEN 
i EXTERNAL ROUTINE A48_SUB; A48_SUB(S1,S2,S2) END 
BEGIN EXTERNAL ROUTINE A48_SUB; A48_SUB(S1,S2,DEST) END 


ENDZ, 
MULTLINE(S5,$6,D3) 
BEGIN EXTERNAL ROUTINE A4B8_MUL; A48_MUL(S5,S6,D03) END 2%, 


LINNOEQL (LIN1,LIN2) = (CHSEQL(6,LIN1,6,LIN2))2, 


CMPLNO (LIN1,LIN2) 
BEGIN Ext 


ERNAL ROUTINE EDTSSCMP_LNO; EDTSSCMP_LNO(LIN1,LIN2) END %, 


) = (CHSMOVE (6, 503 40G})8. 
) = 0; (D7+4) = 0)%; 
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ZF SFI 


1 
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‘4 
: OPTION SWITCH BIT DEFINITIONS 


OPT. 
OPT-SAVE 
OPT “STAY 


nhonunnnon 
PL FL FL FL IL IL TL 


eee © ee & & & 


K 1 
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: Input source definitions. 
These constants define the source command Line input. 


LITERAL 
INP_TERM = 0, ! Terminal 
INP_MACRO = 1, ' A macro 
INP=COMMAND = ¢. i The startup file 
INP_JOURNAL = 3; ! The journal file (only during /RECOVER) 


1+ 
: Terminal type definitions. 


These Literals define the type of terminal we are running on. 


LITERAL 
TERM_UNKNOWN= 0, 


TERM_VT1 = ¢: 
TERM_HCPY = 3; 


1+ 
Length of the type-ahead buffer 
LITERAL 
K_RDAHED_LEN = 32; 
1 
: Editor mode definitions. 
LITERAL 
CHANGE _MODE 
LINE_MODE 


0, 
¥3 
‘ 

definitions for types of words and paras 


LITERAL 
DELIMITED = 0, 
NOT DELIMITED = 1, 
WPSPARA = 0, 
EDTPARA 2 1; 


EDT.REQ;1 


'¢ 
; Define the error codes. 


REQUIRE "EDTSRC:ERRMSG.REQ'; 
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rs 
Definition of the screen update dats structure. 


i This structure has an entry for each Line which is represented on the screen. 
: Im NOTRUNCATE mode, each record may occupy one or more screen Lines. 


START_FIELDS(SCR_FIELDS) 
A_FIELD(SCR_PRV_LINE,%BPADDR), ! Pointer to the previous Line 
A_FIELD(SCR_NXT LINE, ZBPADDR), ! Pointer to the next Line 
A_FIELD(SCR-LINE_IDX,8), ! The i'th screen Line of this record 
A_FIELD(SCR_CHR_FROM,8), ! Workfile char position from 
A-F IELD(SCR-CHR-TO,85 i Workfile char position to ; 
AF IELD(SCR-EDIT_MINPOS,8), i Minimum position that has had an edit 
A_FIELD(SCR_EDIT_MAXPOS,8), ! Maximum position that has had an edit 
cu ee tle ll ee GS, 8) ! Modify, delete and insert flags 


STRUC_SIZE(SCR_SIZE); 
MACRO 
, SCREEN_LINE = BLOCKCSCR_SIZE,BYTE] FIELD(SCR_FIELDS) 2%; 
r This Line has been modified 


! This Line has been inserted 
4; ! This Line has been deleted 


! These flags go in SCR_EDIT_FLAGS and are also used when calling EDTSSMRK_LNCHG. 
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Its 
| 


¥ Define the entity types. 


LITERAL 


ENT_K_CHAR = 1, 
ENT“K"WORD = 3, 
| ENT _K_BW = 5, 
| ENT_K_LINE = 9 
ENT-K-BL ss = -‘14f, 
ENT“K"NL =—s_ =_—«*13;, 
ENT-K-VERT = 15; 
WK UEL = 17, 
ENT-K-SEN = 19, 
ENT-K-BSEN = 21, 
ENT_K_ESEN = 23, 
EN _K_PA = ee 
ENT"K"BPAR = 27, 
ENT-K-EPAR = 29. 
NT“K-PAGE = 31, 
ENT-K-BPAGE = 33, 
ENT-K-EPAGE = 35; + 
_K_BR = 37, ] 
ENT-K-ER = 39; 
ENT-K_QUOTE = 41, 
ENT“K"SR = 43. 
LAST_R-ENT = 43; | 
! 


Sess sss 
ed ed aed 


—*§ ee ee ee —- —-A 4s 3 —s—-a nm 
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Define the verb numbers. 

These are the codes used to represent the change mode subcommands. 


The verbs from VERB_MOVE through VERB_APPEND require entities and 
{ their verb numbers must remain contiguous. 


LITERAL 


< 
m 
» 
@ 
u 
x 
6 
=z 
Oo 
<= 
m 
mi 
" 


< 
m 
z 
@ 
a! 
° 
= 
a 
o 
nonnnnnomnu 


— —OONOUSWN—O 


—™ Ores esse sess 


w VERB_K_SEL = ° 

i verbs verb_k_subs through verb_k_cc are special since they 
! require variable — strings - keep them together with 
: subs always first and cc last. 


VERB_K_SUBS = 12, 
VERB_K_PASTE= 13, 
VERB_K_INSERT= 14, 
VERB_K_XLATE = 15, 
VERB_K_ = 16, 
VERB_K_EXIT = 17, 
VERB_K_ = 18, 
VERB_K_UNDC = 19, 
VERB_K_UNDW = 20, 
VERB_K_UNDL = 21, 
VERB_K_ADV = 22, 
VERB_K_BACK = 23, 
VERB_K_REF = 24, 
VERB_K_ = 25, 
VERB_K_HELP = 38. 
VERB_K_ S 7, 
VERB-K_QUIT = 28, 
VERB_K_SHL = $3. 
VERB_K_-SHR = 0, 
VERB_K_TAB = 31, 
VERB-K-TC = 3¢. 
VERB_K_-TD = 35, 
VERB_K_TI = 4, 
VERB_K-EXT = 5. 
VERB-K"KS = 6, 
VERB_K-DEFK = - 
VERB-K"BELL = 8, 
| 
| 


on 
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I 


VERB_K_DATE = 39, 
VERB_K_DUPC = 40, 
VERB_K_DLWC = 41, ’ 
VERB_K_DMOV = tg: 
VERB_K_DESEL = 43, 
K_TGSEL = 44, 
VERB_K_CLSS = 45, 
LAST_K_VERB = 45; 
' 
: Changecase types. 
LITERAL 
CASE_K_CHGC Tis ! Invert case, corresponds to VERB_K_CHGC 


° ! Upper case, corresponds to VERB_K_CHGU 
3; ! Lower case, corresponds to VERB_K_CHGL 


o 
> 
u” 
m 
x 
o 
x 
a 
= 

uu 
nm 


a 
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r PARSER OP=CODE DEFINITIONS 


F The following are the op-codes accepted by the parser driver. 


LITERAL 


f¢ 
Token 


LITERAL 


'¢ 


OPC_ABORT = 0, ! Abort the parse 

OPC_ACTION = le ! Perform action routine 

—CALL = ¢: ' Call sub-table 
OPC RETURN = ° ! End of table or sub-table (return) 
P€_GOT = 4, ! Unconditional goto 
_OPTI = Pe ! Optional phrase check 

OPC_REQUIRE = 6, ' Require a specific token 
OPC"SELECT = 7, ! select one of several options 
OP_ABORT = 0 ' now the bit values 
OP"ACTION 2 32, 
OP~CALL = 64, 
OP “RETURN = 96 

Pp TO = 128, 
oP “OP TION = 160, 
OP~ REQUIRE = 192, 
oP~ SELECT = 224; 

class definitions 

CL_NAME = 0, ' mame class 

CL_NUMBER = a. ' the number class 

CL-SPECIAL =  - ! the special character class 
CL-STRING = 3; ! The qouted string class 


Parser token handling and matching macros 


MACRO 


PAR _MIN_ LENGTH 8.9 
PAR-OPT-PERCENT =O, ( f a 4 
PARSYMBOL = 1,0,0,0 £;° 


yi 


r- -- - —————E eee 
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It 
i Miscellaneous definitions 


RIF SBLISS(BLISS32) ZTHEN 


MACRO STRING DESC(DESC,LEN,ADDR) = 

BEGIN EXTERNAL ROUTINE STRSCOPY_R; STRSCOPY_R(DESC,LEN,ADDR) END %; 
ZELSE 

14 


| 

| 

These DSC$ macros are defined as system symbols on VAX/VMS. They are 

: fields in a string descriptor. To get the effect of a string descriptor 

: on the ll's, we will pass a 4 word field with the oe macros defining 
the pointer to the string address and the field of the string Length. 

| 

| 

| 


ACRO 
DSCSA_POINTER = 4,0,16,0%, 
DSCSWILENGTH = 0,6,16,6%; 


MACRO STRING_DESC ( DESC, LEN, ADDR) = 
BEGIN 


MAP 
DESC: BLOCK(8,BYTE); 

DESCCDSCSA_POINTER] = ADDR; 
DESCCDSC$W_LENGTH] = .LEN; 
END 2; 

xFI 

LITERAL 
NO_UPDATE = 256, ! Indicating no update of current Line needed 
NO_REFRESH = 100, : ppeicas tap no refresh of screen needed 
MESSAGE _L INE= 22, ! Line on which messages are displayed 

D_LINE= 23, ! Line on which command prompts are displayed 

DIR_FORQARD = le ! Forward direction. 
DIR_BACKWARD= 0; ! Backward direction. 


te 
! Definition of the ASSERT macro. This macro calts EDTSSINTER_ERR if the 
: condiiion is not true. 


ev t-pain (CONDITION) = 
IF (NOT (CONDITION)) 
THEN 
BEGIN 
E 
E 


thi! SOyT tee EDTSSINTER_ ERR : NOVALUE; 
END; 


TSSINTERERR (; 
END 


| 


— a a 


gs | 
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| 
| 
| 
| 

w 

La) 

co 

o 

ao 

a 

7m 

= 

eo 

xo 

wn 

ono 

~w 

o 

- 

w 

co 

o 

_— 

b 

a 

uJ 

” 

t 
oo 
_- 


EDT.REQ;1 


EDT.REQ; 1 16-SEP=1984 16:49:50.15 Page 35 


Ms 
iF Symbols used in control C journaling. 


|LITERAL 
CC_REC_SIZE = 6, ! Size of a control C record 
JOO_REC_ESC = XXx'FF', ! First (escape) byte of a non-text record in the journal file 
CC_REC_FLAG =_1 ' Second byte: control C record 
CC_CTR_MAX = 30600; ! Maximum counter value in control C handling 


TIF XBL1SS(BL1SS32) XTHEN 
EDTSS$K_FMT_BUFLEN 


512; 


Length of the format buffer 


EDTSSK_FMT_BUFLEN = 136; 


Length of the format buffer 


: End of file EDT.REQ 


| 
| 
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: Symbol used in the formatter 


RR 


NT CORPORATION 
D PROPRIETARY 


AH-BI1i3A-SE 
VAX/VMS V4.0 


0129 


E 
N 


D= 


I 
LL «4 


AH-BT13A-SE 
V4.0 


VAX/VMS 


0130 


